home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / rexx / examples / showpicture_ex.thor < prev    next >
Text File  |  1998-05-24  |  378b  |  27 lines
  1. /*
  2.  * $VER: ShowPicture_ex.thor 1.0 (6.9.95)
  3.  *   - example program for the SHOWPICTURE function
  4.  *
  5.  */
  6.  
  7. options results
  8.  
  9. thorport = address()
  10.  
  11. REQUESTFILE title '"Select picture to view:"' id '"s:"' fullpath
  12. if(rc ~= 0) then
  13. do
  14.     if(rc = 30) then say THOR.LASTERROR
  15.     exit
  16. end
  17.  
  18. filename = result
  19.  
  20. SHOWPICTURE file '"'filename'"'
  21. if(rc = 30) then
  22. do
  23.     say THOR.LASTERROR
  24. end
  25.  
  26. exit
  27.